home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022c.dsk / AD.DATABIND.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  29 lines
  1. 10  HGR : POKE  -16302,0
  2. 20  HCOLOR= 6
  3. 30  HPLOT 94,40 TO 120,40: HPLOT 94,40 TO 94,70: HPLOT 120,40 TO 120,70: HPLOT 94,55 TO 120,55
  4. 35  GOSUB 100
  5. 40  HPLOT 130,40 TO 158,40: HPLOT 144,40 TO 144,70
  6. 45  GOSUB 100
  7. 50  HPLOT 94,90 TO 120,90: HPLOT 94,90 TO 94,120: HPLOT 120,90 TO 120,120: HPLOT 94,105 TO 120,105
  8. 55  GOSUB 100
  9. 60  HPLOT 130,90 TO 156,90: HPLOT 130,90 TO 130,105: HPLOT 130,105 TO 156,105: HPLOT 156,105 TO 156,120: HPLOT 156,120 TO 130,120
  10. 65  GOSUB 100
  11. 70  HPLOT 58,90 TO 58,120: HPLOT 58,120 TO 84,120
  12. 75  GOSUB 100
  13. 80  HPLOT 166,90 TO 192,90: HPLOT 180,90 TO 180,120
  14. 85  GOSUB 100
  15. 86  HCOLOR= 2: HPLOT 21,21 TO 230,21: HPLOT 230,21 TO 230,136: HPLOT 230,136 TO 21,136: HPLOT 20,136 TO 21,20
  16. 99  FOR Z = 1 TO 3000: NEXT : TEXT : GOTO 200
  17. 100  FOR T = 1 TO 50: NEXT : RETURN 
  18. 200  HOME : VTAB 1: PRINT "    DATABIND INC. HAS INTRODUCED A TWO-"
  19. 210  PRINT "RING LOOSELEAF BINDER SPECIALLY DESIGNED"
  20. 220  VTAB 3: PRINT "FOR HOLDING TRACTOR-FEED COMPUTER PAPER."
  21. 230  PRINT : PRINT "    ";: INVERSE : PRINT "DATABIND";: NORMAL : PRINT " NOTEBOOKS ARE ATTRACTIVE,": PRINT "VINYL-COVERED, STURDY 12" CHR$(34)" X 12" CHR$(34)" BINDERS."
  22. 240  VTAB 8: PRINT "THE LARGE-CAPACITY 1-1/2" CHR$(34)" RINGS ARE": PRINT "SPACED TO ACCOMODATE VERTICAL OR HORI-"
  23. 250  PRINT "ZONTAL STORAGE. BECAUSE THE TRACTOR": PRINT "HOLES FIT ONTO THE RINGS, THE ENTIRE"
  24. 260  PRINT "8-1/2" CHR$(34)" X 11" CHR$(34)" SHEET CAN BE USED FOR TEXT": PRINT "OR GRAPHICS."
  25. 270  PRINT : PRINT : PRINT "    ";: INVERSE : PRINT "DATABIND";: NORMAL : PRINT "ERS ARE AVAILABLE IN BLACK,": PRINT "BLUE, BROWN, GREEN, AND ORANGE. ";: INVERSE : PRINT "DATABIND": NORMAL 
  26. 280  VTAB 18: PRINT "NOTEBOOKS ARE $6.00 EACH, PLUS $2.00": PRINT "POSTAGE FOR AN ORDER OF ANY SIZE."
  27. 290  PRINT : PRINT "WRITE TO: DATABIND INC., P.O. BOX D": PRINT "('DEE'), MARGATE, NEW JERSEY  08402"
  28. 300  PRINT : PRINT "  ";: INVERSE : PRINT "PRESS ANY KEY TO RETURN TO THE MENU";: NORMAL : VTAB 21: HTAB 35: GET ANY$
  29. 310  PRINT : PRINT  CHR$(4)"RUN AD.MENU"